home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue06 / comp / screensubs < prev   
Encoding:
Text File  |  1989-12-08  |  4.7 KB  |  84 lines
  1. >LIST
  2.  
  3. 32000DEFPROCINIT(X$,Y$):LOCALI%,W%,X%:W%=Work%:$(W%+200)=X$:$(W%+225)=Y$:$(W%+175)=" "
  4.  
  5. 32010*FX225,1
  6.  
  7. 32015*KEY1 DELETE32000,33000 |M SAVE |M
  8.  
  9. 32020*KEY0 BASIC |M OLD |M MODE3 |M COLOUR0,&F0,&C0,&90 |M COLOUR1,0,0,0 |M VDU19,0,24,&A0,&80,&60 |M |N LISTO21 |M LIST |M
  10.  
  11. 32030VDU23,48,&3C,&66,&66,&66,&66,&66,&3C,0:VDU23,79,&7E,&66,&66,&66,&66,&66,&7E,0
  12.  
  13. 32040VDU23,79,&7E,&66,&66,&66,&66,&66,&7E,0
  14.  
  15. 32050X$="FC9 DA8 B97 975 864 643 432 000 049 EE0 0D0 C03 FFD B0B FA0 0BF B97 0FF 009 F00"
  16.  
  17. 32060FORI%=0TO59:X%=ASC(X$):X%=X%-48+7*(X%>64):W%?I%=X%*16:X$=MID$(X$,3-SGN((I%+1)MOD3)):NEXTI%
  18.  
  19. 32070COLOUR128:COLOUR7:GCOL0,7:MODE12:CLS
  20.  
  21. 32080FORI%=0TO15:VDU19,I%,16,W%?(3*I%),W%?(3*I%+1),W%?(3*I%+2):NEXTI%:VDU19,0,24,W%?48,W%?49,W%?50:FORI%=1TO3:VDU19,I%,25,W%?(3*I%+48),W%?(3*I%+49),W%?(3*I%+50):NEXTI%
  22.  
  23. 32090PROCCLS
  24.  
  25. 32100PROCMOUSEPARS
  26.  
  27. 32110ENDPROC
  28.  
  29. 32120DEFPROCCLS
  30.  
  31. 32130GCOL7:RECTANGLEFILL0,0,1279,1023:GCOL4:RECTANGLEFILL4,4,1271,1015:GCOL7:RECTANGLEFILL16,16,1247,843:RECTANGLEFILL16,872,1247,79:GCOL0:RECTANGLEFILL20,20,1239,835:RECTANGLEFILL20,876,1239,71
  32.  
  33. 32140$(Work%+175)=STRING$(24," "):PROCHEAD
  34.  
  35. 32150ENDPROC
  36.  
  37. 32160DEFPROCHEAD:LOCALW%,X$,Y$:W%=Work%:X$=$(W%+200):Y$=$(W%+225)
  38.  
  39. 32170GCOL4:RECTANGLEFILL4,952,1271,67:VDU5:GCOL12:MOVE48,999:PRINTX$
  40.  
  41. 32180MOVE640+8*(LEN(X$)-20)-8*LEN(Y$),999:PRINTY$:PROCTIME:GCOL0:RECTANGLEFILL20,876,1239,71:ENDPROC
  42.  
  43. 32190DEFPROCTIME:LOCALW%,X%,X$,Y$:W%=Work%:X$=$(W%+175)
  44.  
  45. 32200Y$=TIME$:IFY$<>X$THENX%=32-288*(LEFT$(X$,22)<>LEFT$(Y$,22)):$(W%+175)=Y$:VDU5:GCOL4:RECTANGLEFILL1239-X%,968,X%-1,31:GCOL12:MOVE920,999:PRINTMID$(Y$,5,7);MID$(Y$,14,2);"   ";MID$(Y$,17,8)
  46.  
  47. 32210GCOL7:COLOUR7:VDU4:ENDPROC
  48.  
  49. 32220DEFPROCENTER(P$,A%,N,D$,F$)
  50.  
  51. 32230LOCALT$,C%,L%,I%,J%,K%,E%,N%,D%,R$,Z%,M%:C%=10:L%=3
  52.  
  53. 32240*FX225,&80
  54.  
  55. 32250*FX226,&90
  56.  
  57. 32260*FX227,&A0
  58.  
  59. 32270*FX228,&B0
  60.  
  61. 32280*FX221,&C0
  62.  
  63. 32290*FX222,&D0
  64.  
  65. 32300*FX223,&E0
  66.  
  67. 32310*FX224,&F0
  68.  
  69. 32320*FX4,2
  70.  
  71. 32330*FX229,27
  72.  
  73. 32340*FX9,0
  74.  
  75. 32350Z%=1:T$="":E%=0:R$=D$
  76.  
  77. 32360MOUSEI%,J%,K%:M%=FALSE:IFF$<>""THENFORY%=1TOLEN(F$):X%=ASC(MID$(F$,Y%)):M%=M%OR((X%>=&F1)AND(X%<=&F7)):NEXTY%:X%=INSTR(F$,CHR$(27)):IFX%>0THENPRINTTAB(73,3);"<ESC>"
  78.  
  79. 32370IFN<>0THENX=VAL(D$):D$=STR$(X):N%=INT(ABS(N)):D%=10*(ABS(N)+0.01-N%):A%=N%-(N<0):IFD%>0THENA%+=1+D%
  80.  
  81. 32380C%=(80-LEN(P$)-3-A%)DIV2
  82.  
  83. 32390IFN<>0THENX=VAL(D$):X%=1+INT(LOG(0.5+INT(ABS(X))))-(D$="0"):Y%=0:IF(INSTR(D$,".")>0)THENY%=LEN(D$)-INSTR(D$,".")
  84.  
  85. 32400IFN<>0THENE%=(X<0)AND(N>=0):E%=E%OR(X%>N%):E%=E%OR(Y%>D%)
  86.  
  87. 32410OFF:PRINTTAB(C%+LEN(P$)+3,L%);STRING$(A%," ");:REPEAT:SYS"OS_Byte",&87TOK%,K%:PRINT" ";:UNTILK%=32:PRINTTAB(C%,L%);P$;" ? ";D$;
  88.  
  89. 32420IFN=0ANDLEN(D$)<A%THENPRINTSTRING$(A%-LEN(D$),".");
  90.  
  91. 32430IFN<>0ANDINSTR(D$,".")=0ANDX%<N%THENPRINTSTRING$(N%-X%,".");
  92.  
  93. 32440IFN<>0ANDY%<D%THENPRINTSTRING$(-(INSTR(D$,".")=0),CHR$(189));STRING$(D%-Y%,".");
  94.  
  95. 32450IFN<>0ANDINSTR(D$,".")>0THENPRINTTAB(C%+LEN(P$)+2+INSTR(D$,"."),L%);CHR$(189);
  96.  
  97. 32460PROCTIME
  98.  
  99. 32470IFM%THENMOUSEX%,Y%,K%:IFK%>0THENMOUSEON4:X$="":Z%=K%:REPEAT:MOUSEI%,J%,K%:MOUSETOX%,Y%:Z%=Z%ORK%:UNTILK%=0:Y%=240+Z%:GOTO32640
  100.  
  101. 32480IFM%THENIF(X%<>I%)OR(Y%<>J%)THENMOUSEON4:I%=X%:J%=Y%
  102.  
  103. 32490PRINTTAB(C%+LEN(P$)+2+Z%,L%);:ON
  104.  
  105. 32500Y%=INKEY(1):IFY%<0THEN32460
  106.  
  107. 32510MOUSEOFF
  108.  
  109. 32520X%=0:X=0:X$=""
  110.  
  111. 32530IFY%>=32ANDY%<127ANDD$=R$ANDZ%=1THENR$="":D$=CHR$(Y%):Z%=2:GOTO32390
  112.  
  113. 32540IFY%>=32ANDY%<127ANDZ%>LEN(D$)THEND$=D$+CHR$(Y%):Z%+=1:GOTO32390
  114.  
  115. 32550IFY%>=32ANDY%<127ANDZ%<=LEN(D$)THENX$=D$:D$=LEFT$(D$,Z%-1)+CHR$(Y%)+RIGHT$(D$,LEN(D$)-Z%):Z%+=1:GOTO32390
  116.  
  117. 32560IFY%=127THEND$=LEFT$(D$,Z%-1)+RIGHT$(D$,LEN(D$)-Z%):GOTO32390
  118.  
  119. 32570IFY%=140THENZ%-=1:Z%-=(Z%=0):GOTO32390
  120.  
  121. 32580IFY%=141THENZ%+=1:Z%+=(Z%>LEN(D$)+1):GOTO32390
  122.  
  123. 32590IFY%=205ANDZ%>LEN(D$)THEN32390
  124.  
  125. 32600IFY%=205ANDZ%<=LEN(D$)ANDN=0THENX$=D$:D$=LEFT$(D$,Z%-1)+" "+RIGHT$(D$,LEN(D$)-Z%+1):GOTO32390
  126.  
  127. 32610IFY%=205ANDZ%<=LEN(D$)ANDN<>0THENX$=D$:D$=LEFT$(D$,Z%-1)+"0"+RIGHT$(D$,LEN(D$)-Z%+1):GOTO32390
  128.  
  129. 32620IFY%=8ANDZ%=1THEN32390
  130.  
  131. 32630IFY%=8ANDZ%>1THENX$=D$:D$=LEFT$(D$,Z%-2)+RIGHT$(D$,LEN(D$)-Z%+1):Z%-=1:GOTO32390
  132.  
  133. 32640IF(Y%AND&0F)>9AND(Y%>127)THENY%=Y%EOR&40
  134.  
  135. 32650IF(Y%<>13)AND(INSTR(F$,CHR$(Y%))=0)THEN32460
  136.  
  137. 32660X$=D$:X=0:IFN<>0THENX=VAL(X$):IFE%<>0THEND$=R$:PRINTCHR$(7):GOTO32350
  138.  
  139. 32670X%=0:IFD%=0THENX%=X
  140.  
  141. 32680REM*FX229,0
  142.  
  143. 32690*FX4,0
  144.  
  145. 32695I%=INSTR(F$,CHR$(27)):IFI%>0THENPRINTTAB(73,3);"     "
  146.  
  147. 32700PRINTTAB(C%,L%);STRING$(LEN(P$)+3+A%," "):ENDPROC
  148.  
  149. 32710DEFPROCMOUSEPARS
  150.  
  151. 32720*POINTER
  152.  
  153. 32730MOUSEOFF
  154.  
  155. 32740W%?0=0:W%?1=4:W%?2=5:W%?3=9:W%?4=8:W%?5=4:!(W%+6)=W%+10
  156.  
  157. 32750!(W%+10)=&0FFFFF00:?(W%+14)=&00:!(W%+15)=&FC0F03F0:?(W%+19)=&00:!(W%+20)=&C00F003F:?(W%+24)=&0F:!(W%+25)=&000F000F:?(W%+29)=&0F:!(W%+30)=&FFFFFFFF:?(W%+34)=&0F
  158.  
  159. 32760!(W%+35)=&000F000F:?(W%+39)=&0F:!(W%+40)=&C00F003F:?(W%+44)=&0F:!(W%+45)=&FC0F03F0:?(W%+49)=&00:!(W%+50)=&0FFFFF00:?(W%+54)=&00
  160.  
  161. 32770SYS"OS_Word",&15,W%
  162.  
  163. 32780ENDPROC
  164.  
  165. >*SPOOL
  166.  
  167.